;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(DEFUN C:TX2PT ()
(setq oldosm (getvar"osmode"))
(WHILE
  (SETQ TWENT (ENTSEL "Select elevation string: "))
  (SETQ TWSTR (CDR(ASSOC 1(ENTGET(CAR TWENT)))))
  (setvar "osmode" 64)
  (SETQ WALLPT (GETPOINT "Snap elevation point: "))
  (setvar "osmode" 0)
;  (SETQ TWCNT (STRLEN TWSTR))
;  (WHILE (WCMATCH TWSTR "*T*")
;    (SETQ TWCNT (1- TWCNT))
;    (SETQ TWSTR (SUBSTR TWSTR 1 TWCNT))
;  )
;  (SETQ TWSTR (SUBSTR TWSTR 1 TWCNT))
  (SETQ ZPNT (READ TWSTR))
  (PRINC "\n")
  (PRINC ZPNT)
  (PRINC "\n")
  (SETQ 3DACC (LIST(CAR WALLPT)(CADR WALLPT)ZPNT))
  (command ".layer" "s" (cdr(assoc 8(entget(car TWENT))))"")
  (COMMAND ".insert" "tmpp" 3DACC 1 1 0)
  (setvar "osmode" oldosm)
)
)